home *** CD-ROM | disk | FTP | other *** search
/ Photodex - Picture Factory / Photodex Picture Factory 1 - Hi-Rez - Disc 1.iso / photodex.mst < prev    next >
Text File  |  1994-05-24  |  3KB  |  128 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. CONST WELCOME       = 100
  5. CONST ASKQUIT       = 200
  6. CONST DESTPATH      = 300
  7. CONST EXITFAILURE   = 400
  8. CONST EXITQUIT      = 600
  9. CONST EXITSUCCESS   = 700
  10. CONST APPHELP       = 900
  11. CONST BADPATH       = 6400
  12.  
  13. CONST LOGO = 1
  14.  
  15. GLOBAL DEST$
  16. GLOBAL OPTCUR$
  17.  
  18. DECLARE SUB Install
  19. DECLARE FUNCTION MakePath(szDir$, szFile$) AS STRING
  20.  
  21. INIT:
  22.     CUIDLL$="mscuistf.dll"
  23.     HELPPROC$="FHelpDlgProc"
  24.     SetBitmap CUIDLL$,LOGO
  25.     SetTitle "ClickSearch(tm) Installation"
  26.     szInf$=GetSymbolValue("STF_SRCINFPATH")
  27.     IF szInf$="" THEN
  28.         szInf$=GetSymbolValue("STF_CWDDIR")+"PHOTODEX.INF"
  29.     END IF
  30.     ReadInfFile szInf$
  31.     OPTCUR$="1"
  32.     DEST$="C:\PFHIRES"
  33. WELCOME:
  34.     sz$=UIStartDlg(CUIDLL$,WELCOME,"FInfoDlgProc",APPHELP,HELPPROC$)
  35.     IF sz$="CONTINUE" THEN
  36.         UIPop 1
  37.     ELSE
  38.         GOSUB ASKQUIT
  39.         GOTO WELCOME
  40.     END IF
  41. GETPATH:
  42.     SetSymbolValue "EditTextIn",DEST$
  43.     SetSymbolValue "EditFocus","END"
  44. GETPATHL1:
  45.     sz$=UIStartDlg(CUIDLL$,DESTPATH,"FEditDlgProc",APPHELP,HELPPROC$)
  46.     DEST$=GetSymbolValue("EditTextOut")
  47.  
  48.     IF sz$="CONTINUE" THEN
  49.         IF IsDirWritable(DEST$)=0 THEN
  50.             GOSUB BADPATH
  51.             GOTO GETPATHL1
  52.         END IF
  53.         UIPop 1
  54.     ELSEIF sz$="REACTIVATE" THEN
  55.         GOTO GETPATHL1
  56.     ELSEIF sz$="BACK" THEN
  57.         UIPop 1
  58.         GOTO WELCOME
  59.     ELSE
  60.         GOSUB ASKQUIT
  61.         GOTO GETPATH
  62.     END IF
  63.     Install
  64. QUIT:
  65.     ON ERROR GOTO ERRQUIT
  66.  
  67.     IF ERR=0 THEN
  68.         dlg%=EXITSUCCESS
  69.     ELSEIF ERR=STFQUIT THEN
  70.         dlg%=EXITQUIT
  71.     ELSE
  72.         dlg%=EXITFAILURE
  73.     END IF
  74. QUITL1:
  75.     sz$=UIStartDlg(CUIDLL$,dlg%,"FInfo0DlgProc",0,"")
  76.     IF sz$="REACTIVATE" THEN
  77.         GOTO QUITL1
  78.     END IF
  79.     UIPop 1
  80.     END
  81.  
  82. ERRQUIT:
  83.     i%=DoMsgBox("Setup sources were corrupted!","Setup Message",MB_OK+MB_TASKMODAL+MB_ICONHAND)
  84.     END
  85.  
  86. BADPATH:
  87.     sz$=UIStartDlg(CUIDLL$,BADPATH,"FInfo0DlgProc",0,"")
  88.     IF sz$="REACTIVATE" THEN
  89.         GOTO BADPATH
  90.     END IF
  91.     UIPop 1
  92.     RETURN
  93.  
  94. ASKQUIT:
  95.     sz$=UIStartDlg(CUIDLL$,ASKQUIT,"FQuitDlgProc",0,"")
  96.     IF sz$="EXIT" THEN
  97.         UIPopAll
  98.         ERROR STFQUIT
  99.     ELSEIF sz$="REACTIVATE" THEN
  100.         GOTO ASKQUIT
  101.     ELSE
  102.         UIPop 1
  103.     END IF
  104.     RETURN
  105.  
  106. SUB Install STATIC
  107.     SrcDir$=GetSymbolValue("STF_SRCDIR")
  108.     CreateDir DEST$,cmoNone
  109.     AddSectionFilesToCopyList "Files",SrcDir$,DEST$
  110.     CopyFilesInCopyList
  111.     CreateProgmanGroup "Picture Factory","",cmoNone
  112.     ShowProgmanGroup "Picture Factory",1,cmoNone
  113.     CreateProgmanItem "Picture Factory","Picture Factory Disc A",DEST$+"\hires.exe","",cmoOverwrite
  114. END SUB
  115.  
  116. FUNCTION MakePath(szDir$,szFile$) STATIC AS STRING
  117.     IF szDir$="" THEN
  118.         MakePath=szFile$
  119.     ELSEIF szFile$="" THEN
  120.         MakePath=szDir$
  121.     ELSEIF MID$(szDir$,LEN(szDir$),1)="\" THEN
  122.         MakePath=szDir$+szFile$
  123.     ELSE
  124.         MakePath=szDir$+"\"+szFile$
  125.     END IF
  126. END FUNCTION
  127.  
  128.